home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1364.dms / var1364.adf / ARexx / Startup.mnd2 < prev    next >
Text File  |  1992-09-02  |  3KB  |  65 lines
  1. /* Startup script for Mand2000. */
  2.  
  3. /* This script is supplied with the Mand2000 demo and release */
  4. /* versions and may be freely distributed. */
  5.  
  6. /*
  7.     If this script is put in the rexx:  directory, it will
  8. automatically be run each time Mand2000 starts up, allowing you to
  9. customize Mand2000 by changing settings, adding menus, or whatever you want
  10. to do.  This startup script relies on several other scripts being in the
  11. rexx:  directory also.  These scripts should be distributed and installed
  12. together with this one.
  13.  */
  14.  
  15. portname = address()    /* Retrieve the current port name. */
  16. /* If the portname does not start with MAND2000 then this script must */
  17. /* have been run with rx, rather than from Mand2000.  Therefore we */
  18. /* need to set the port name.  We do not always set the port name */
  19. /* because it is better to let Mand2000 set it for us, so that */
  20. /* this script can be used with windows other than the one with */
  21. /* port name MAND2000.1. */
  22. if (left(portname, 8) ~= "MAND2000") THEN
  23.     address 'MAND2000.1'
  24.  
  25. /* Uncomment this and put in the name of a picture you want loaded */
  26. /* at startup.  This can be very handy not only for loading a */
  27. /* favourite picture, but also for all of the settings that go with */
  28. /* it, like fractal type, colour mapping, palette, etc. */
  29. /*open 'filename=yourpicture'*/
  30.  
  31.  
  32. /* Add commands to the user menu.  The first parameter is the title */
  33. /* that appears in the menus.  The optional `Shortcut' commands can */
  34. /* be used to specify a keyboard shortcut.  Make sure it isn't one */
  35. /* that's already been used.  The rest of the line is the command */
  36. /* that should be sent to ARexx when this menu is selected, typically */
  37. /* an ARexx script name (the .mnd2 is assumed) and some parameters. */
  38.  
  39. menu '"Start Iter Movie"' itermovie start
  40. menu '"Start Sequence"' calcsequence start
  41. menu '"Zoom in 10%"' Shortcut 1 Zoom10percent
  42. menu '"Set Max Iters"' Shortcut X setmaxiters
  43. menu '"Print Project Attributes"' PrintAttr project
  44. menu '"Print Global Attributes"' PrintAttr global
  45. menu '"Print Project Commands"' PrintCommands project
  46. menu '"Print Global Commands"' PrintCommands global
  47.  
  48. /* This command makes the title bar visible, if it is currently hidden. */
  49. /*titlebar on*/
  50.  
  51. /* This command moves Mand2000 to the workbench screen. */
  52. /*workbench on*/
  53.  
  54. /* Tell Mand2000 to print error messages on bad ARexx commands. */
  55. /* In this mode Mand2000 will print a message whenever it is */
  56. /* passed a command it doesn't understand.  A lot of the messages */
  57. /* generated this way will be unavoidable extraneous messages, caused */
  58. /* by commands that are meant for somebody else.  Remove this line */
  59. /* to make your ARexx scripts execute silently. */
  60. /* Note also that if you want your ARexx scripts to be able to print */
  61. /* anything out, you must either run Mand2000 from the shell, or else */
  62. /* have a 'window=con:0/0/600/150/Mand2000...' tool type in your icon. */
  63. /* Mand2000's icon has such a tooltype by default. */
  64. verbose on
  65.